`as.double.immutable` <-
function(x,...)x

